home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / jukebox_2.1 / fadein.jb < prev    next >
Text File  |  1996-02-22  |  609b  |  39 lines
  1. /* fade in - requires V2 player module  */
  2. /* (c) copyright 1993 by F.J. Reichert */
  3.  
  4. options results;
  5.  
  6. current volume resolution;
  7. maximum = result - 1;
  8. current volume right;
  9. right = result;
  10. current volume left;
  11. left = result;
  12.  
  13. play;
  14.  
  15. if right > left then do
  16.     do i = left to right;
  17.         set volume i "-1";
  18.         current break;
  19.         if result ~= 0 then exit(5);
  20.     end;
  21.     level = right;
  22. end;
  23. else do;
  24.     do i = right to left;
  25.         set volume "-1" i;
  26.         current break;
  27.         if result ~= 0 then exit(5);
  28.     end;
  29.     level = left;
  30. end;
  31.  
  32. do i = level to maximum;
  33.     set volume i i;
  34.     current break;
  35.     if result ~= 0 then exit(5);
  36. end;
  37.  
  38. exit(0);
  39.